*** empty log message ***

diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el
index 9b63a35f3bd4612642ba33ec4f68ff755e06d962..3316b7c4b9dcb9e58da5f2050a470a0c7aaae1ac 100644 (file)
--- a/lisp/url/url-mailto.el
+++ b/lisp/url/url-mailto.el
@@ -88,7 +88,7 @@
       (if tolist
          (if (not (string= to ""))
              (setcdr tolist
-                     (list (concat to ", " (nth 1 tolist)))))
+                     (list (concat to ", " (cadr tolist)))))
        (setq args (cons (list "to" to) args))))
 
     (setq subject (cdr-safe (assoc "subject" args)))